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vous600 “SEP=1984 33343598 SYS.SRCJFORKCNTRL.MAR; 1 = ds 
-TITLE FORKCNTRL = FORK PROCESS CONTROL 
-IDENT ‘V04-000 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Trt we oTneh 


N 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


. 
* 
® 
* 
* 
® 
® 
* 
* 
” 

TRANSFERRED. * 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONS . ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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D. N. CUTLER 9-AUG-76 
MODIFIED BY: 
v03-002 thd be David W. Thiel 27-DEC-1983 


peed up fork processing a bit by doing fewer interrupts 
and REMQUE's. . . . . : 


V03-001 ROW0176 Ralph 0. Weber 4-APR-1983 
Add EXESFORK_WAIT, the entry fork-and-wait routine which is 
the object of the FORK_WAIT macro. 
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MACRO LIBRARY CALLS 


SFKBDEF 
SPRDEF 
SUCBDEF 
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;DEFINE FKB OFFSETS 
DEFINE PROCESSOR REGISTERS 
DEFINE UCB OFFSETS 


A vial 9 de - FOR 
v04-000 CREAT K-AND-WAIT PROCESS “SEP=19 


K PR 
E FO SYS.SRCJFORKCNTRL.MAR; 1 
i 4 .SBTTL CREATE FORK-AND-WAIT PROCESS 
; EXESFORK_WAIT = CREATE FORK-AND-WAIT PROCESS 
00 
00 
000 
at 
00 


FUNCTIONAL DESCRIPTION: 
This routine is called to fold a fork context into a fork block and 
lace that block on the fork-and-wait work queue, EXESGL_FKWAITFL. 
rom zero to one seconds later, EXESTIMEOUT will remove all entries in 
the fork-and-wait work queue and restart the fork thread saved here. 
INPUTS: 


Return address of the caller 
Return address of the caller's caller 


= Address of a fork block 
R3 & R4 = Saved fork context registers 


IPL >= IPL$_SYNCH 


OUTPUTS (to caller's caller): 


ALL registers and IPL are returned as they were when this routine was 
called. sg ae Me upon actions taken by the caller this may be 
equivalent to destroying RO through R5 and altering IPL. 


OUTPUTS (to caller after fork-and-wait completed): 
R3 through R5 preserved. 


ALL other registers destroyed. 
IPL = FKBSB_FIPL(RS) 
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EXESFORK_WAIT:: 
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0 
0 ASSUME FKBSL_FR4 EG <FKBSL_FR3 + 4>_ 
10 AS) 53s 7D 0 MOVa R35, FRBSL_FR3(R5) ; Save fork context registers. 
Oc AS BEDO 0004 PL  ——- FKBSL_FPCTRS) : Save fork context PC. 
O000'DF 65 0O 008 INSQUE (R5), @W*EXESGL_FKWAITBL ; Put fork block on work queue. 
D $B ; Return to caller's caller. 
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RYFORK PROCESS "Brees O8i13:98 Here HRER CNA man:1 «| a8" GZ, 
.SBTTL CREATE 1/0 DRIVER FORK PROCESS 

; EXESIOFORK = CREATE 1/0 DRIVER FORK PROCESS 

; THIS ROUTINE I$ CALLED BY AN 1/0 DRIVER TO CREATE A FORK PROCESS. 

INPUTS: 


: QO(SP) = RETURN ADDRESS OF CALLER, 


ROL 
0 


P) = RETURN ADDRESS OF CALLER'S CALLER. 
: RS = UCB ADDRESS OF DEVICE UNIT. 
; OUTPUTS: 
wee TBSeee 
»PSECT ASE XENONPAGED , LONG 


EXESIOFORK: : CREATE I/0 DRIVER FORK PROCESS 
BICW #UCBSM_TIM,UCBSW_STS(R5); Aire e Lion AND FALL THROUGH 
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vO4=600 ‘ge "SrSEp=198e O8:42it6 USYSTSRcHPGRecntaL-mar;1 89° 3, 
~SBTTL CREATE FORK PROCESS 

EXESFORK = CREATE FORK PROCESS 

THIS ROUTINE IS CALLED TO CREATE A FORK PROCESS. 

INPUTS: 


po tse ) = RETURN ADDRESS OF CALLER, 
4(SP) = RETURN ADDRESS OF CALLER? S CALLER. 


R5 = ADDRESS OF FORK BLOCK. 
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OUTPUTS: 
eeeTBSeee 
XESFORK:: :CREATE FORK PROCESS 
10 AS. 53s MOVQ = R3, FKBS$L_FR3(R5) i SAVE REGISTERS R3 AND R4 
Oc AS 8EDO OPL FKBSL_FPC(RS) iSET FORK PROCESS PC 
0B AS) «(9A «(O00 MOVZBL FKBSB~FIPL(RS),R AGET K IPL 
53 FFDO'CF44 7E 00 OVAQ We sWISGL tori <ee8>CR4), R GET “ADDRESS OF FORK QUEUE LISTHEAD 
483 65 OE 00 INSQUE (R5),a4(R3) INSERT FORK BLOCK IN FOR 
03 1 0 EQ «108 Tt SUEUE OE READY POPULATED AVOID EXTRA INTE 
0 SOFTINT R4 i INITIATE SOFTWARE INTERRUPT 
05 00 10S: $B + AND RETU 
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~SBTTL SOFTWARE INTERRUPT ENTRY POINTS 


cn 


; THE PPROPRIATE ENTRY POINT IS AUTOMATICALLY VECTORED TO WHEN T ef 
+ PENDING INTERRUPT AT LE R 11 AND THE CURRENT PRIOR 
: IS LOWER THAN THE PENDING LEVEL. THE STATE OF THE STACK ON ENTRY IS 
: 90¢sP) =] 
: 4($P) = INTERRUPT PSL. 
: THERE IS AN ENTRY POINT FOR EACH FORK LEVEL SO THAT THE HARDWARE IPL REGISTER 
: WILL NOT HAVE TO BE READ TO DETERMINE THE CURRENT PROCESSOR IPL. READING THE 
: IPL REGISTER IS SLOW ENOUGH TO WARRANT THE ADDITIONAL CODE. 
-ALIGN LONG SENTRY POINT MUST BE LONGWORD ALIGNED 
a en EXESFRKIPLGDSP:: {FORK IPL 6 ENTRY POINT 
56  0000'CF oF MOVAG W*SWISGL_FQFL,R6 [GET ADDRESS OF FORK QUEUE LISTHEAD 
aes : BRB EXESFORKDSPTH ‘BRANCH TO COMMON CODE 
ALIGN LONG SENTRY POINT MUST BE LONGWORD ALIGNED 
EXESFRKIPLODSP: : {FORK IPL 9 ENTRY POINT 


56 D 6 sSAVE R6. 
56 0018'CF a4 MOVAQ W*SWISGL_FQFL+24,R6 ;GET ADDRESS OF FORK QUEUE LISTHEAD 
23 11 BRB EXESFORKBSPTH ;BRANCH TO COMMON CODE 


-ALIGN LONG sENTRY POINT MUST BE LONGWORD ALIGNED 
sciatica * taal sFORK IPL 10 ENTRY POINT 


6 7 SAV R6. 
MOVAQ W*SWISGL FQFL+32,R6 :GET ADDRESS OF tO eee LISTHEAD 


56 0020° 
BRB EXESFORKBSPTH BRANCH TO COMMON CO 


OW 
NTO 


gM 188 LONG ENTRY POINT MUST BE LONGWORD ALIGNED 
spams <1 ttt! FORK IPL 11 ENTRY POINT 
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A HE SOFTWARE 

RRUPT PRIORITY roo. neers N THE CENTRAL PROCESSOR DETECTS A 

} VEL 6, 8, 9, 10, 0 “ ITY LEVEL 
NTERRUPT PC. 


56 DD R6 :SAVE R6. 
56 O0028'CF 7E MOVAQ W*SWISGL_FQFL+40,R6 GET ADDRESS OF FORK QUEUE LISTHEAD 
0B 11 BRB EXESFORKDSPTH BRANCH TO COMMON CODE 
yt LONG ENTRY POINT MUST BE LONGWORD ALIGNED 
EXESFRKIPL8DSP: : sFORK IPL 8 ENTRY POINT 
56 4 PUSHL 6 sSAVE R6. 
56 0010'CF E MOVAQ W*SWISGL_FQFL+16,R6 :GET ADDRESS OF FORK QUEUE LISTHEAD 
01 NOP PAD OUT TO LONGWORD BOUNDARY 


a a ss a 4s 2 ss 2s an ts ss a se tt tt tt mw 


0090909 0909 09 09 09 SI NIN NS SN NSP AAA AAA AA III EE EEE DY 
CONAN WN OS OO NAME WIN 9 OD NA UE WIN 0 OO NOU EW) OOO NOUMS UT 


: DROP THROUGH TO COMMON CODE 
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V0e~000 SOFTWARE INTERRUPT FORK DISPATCHER =SEP=1 1382 88: 13: 96 SYS.SR ci? ORKCNTRL. MAR; 1 . (2) 
190 : .SBTTL SOFTWARE INTERRUPT FORK DISPATCHER 
19¢ : EXESFORKDSPTH = SOFTWARE INTERRUPT FORK DISPATCHER 
58 194 : FOR EACH OF THE LEVELS 6, 8 10 AND HF THERE EXISTS A QUEUE OF FORK 
58 195 : BLOCKS WAITING TO BE P Sabtesten. HEN A FORK BLOCK IS ENTERED IN ITS 
5 196 : CORRESPONDING QUEUE AND IT IS tHe FIRST. ai’ BE ENTERED (I. E. THE QUEU 
58 197 : WAS PREVIOUSLY EMPTY), A SOFTWARE INTERRUPT IS REQUESTED FOR THAT LEVEL. 
5 198 : THE FORK DISPATCHER GAINS CONTROL AND EMPTIES THE QUEUE ONE ENTRY AT 
58 199 ; TIME. AS EACH FORK IS DISPATCHED, REGISTERS R3 AND R4 ARE RESTORED FROM 
05 0 ; THE FORK BLOCK AND THE FORK PROCESS IS CALLED VIA A JSB INSTRUCTION. 
05 1 : ON RETURN, THE FORK DISPATCHER RETRIEVES THE NEXT ENTRY FROM THE QUEUE 
5 : : AND REPEATS THE DISPATCHING OPERATION. THIS PROCESS CONTINUES UNTIL 
05 : THERE ARE NO MORE FORKS TO DISPATCH AT WHICH TIME THE INTERRUPT IS 
005 04 : DISMISSED. 
05 $3 
Bh 88 
005 38 »ALIGN LONG 
605 9 EXESFORKDSPTH:: ;SOFTWARE INTERRUPT FORK DISPATCHER 
55 pd 005 10 PUSHL RS TSAVE RS . 
54 ODD OSA 11 PUSHL R& SAVE ' 
53 pp (005¢ i PUSHL R3 [SAVE R3 |. PUSHLS ARE FASTEST! 
52 oD 005 1 PUSHL R2 SSAVE R2 . 
51 DD 006 14 PUSHL R11 TSAVE R1 . 
50 «DD «(006 15 PUSHL RO SSAVE RO. 
07.11 0064 16 BRB 20$ ‘BRANCH TO BODY OF DISPATCHER 
0066 218 : DIS: \TCH FORK PROCESS WHEN QUEUE IS NOT YET EMPTY 
0066 19 : DISPATCH FORK PROCESS WITH: 
0066 1: RO THRU R2 = SCRATCH REGISTERS. 
066 3 : R3 AND R4 = RESTORED FROM FORK BLOCK. 
Bee i 3 R5 = ADDRESS OF FORK BLOCK. 
53 10 A5 7D 0066 5 10$:  MOVQ  FKBSL_FR3(RS),R3 ; RESTORE REGISTERS R3 AND R4 
0c BS) 16 006A Q JSB aFKBSC_FPC(RSS [DISPATCH FORK 
55 00 BG OF 6p 20$: REMQUE a@(R6),R5 REMOVE NEXT ENTRY FROM FORK QUEUE 
F312 1 8 BNEQ 108 ‘BRANCH IF Que UE NO YET EMPTY 
07 1D 007 9 BVS 30$ [IF VS NO ENT REROV ED 
07 0 THERE WHEN VAST ENTRY DEQUEUED 
7 ; t DISPATCH LAST ENTRY IN THE QUEUE 
, 3: DISPATCH FORK PROCESS WITH: 
07 5: RO THRU R2 = SCRATCH REGISTERS. 
? 6 : R3 AND k4 = RESTORED FROM FORK BLOCK. 
, : R5 = ADDRESS OF FORK BLOCK. 
10 aS 7D 007 § MOva sfeasc'? FRSCR5) sR3 ;RESTORE REGISTERS R3 AND R4 
g¢ BS 16 007 40 JSB ast tp [DISPATCH FORK 
OO7F 8F BA 4 41 30$:  POPR #*M<R “hicke. 3. R4,RS,R6> :RESTORE FORK PROCESS REGISTER SET 
2 ' 4¢ El sDISMISS INTERRUPT 
6 : 3 END 
| 
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EXESFORK 4 RG ; 
EXESFORKDSPTH RG 
EXESFORK WAIT RG 1 
EXESFRKIPLIODSP RG 
EXESFRKIPL11DSP 44 RG 
EXESFRKIPLODSP 8 RG 
EXESFRKIPLSDSP RG 
EXESFRKIPLODSP C RG 
EXESGL FKWAITBL eeeereee =X 1 
EXESIOFORK 0 0 RG 3 
FKBSB_FIPL = 8 
FKBSL_FP = f 
FKBSL_FR = 1 
FKBSL FRG = 00 14 
PRS$_STRR = 00000014 
SWISGL FOFL eererere =X 05 
UCBSM_TIM = 00000001 
UCBS$W_STS = 00000064 
¢ewoceeecees eececeoen + 
! Psect synopsis : 
So + 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 0.) 00 ¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
» BLANK . QOOOOO0E (¢ 14.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
S$ 00000000 < 0.) 02 ¢ §-} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
ASE XENONPAGED 00000081 ¢ 129.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 


Page faults 


Initialization 8 
Command processing 105 


Pass 204 
Symbol table sort 0 
Pass 2 60 
Symbol table output 4 
Psect synopsis output 1 


Cross-reference output 9 
Assembler run totals 40 


The yorking set Limit was 1200 pages. 
bytes (46 pages) of virtual memory were used to buffer the intermediate code. 
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fewer ree tee een e wn eoceeen} 
; Performance indicators : 


CPU Time 


8 (Ob :00s04:85 
0:00:13.35 
0 0:00:01.50 
1 0:00:03.11 
0:00:00.04 
0:00:00.0 
2-8 
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There were 30 pages of symbol table space allocated to hold 445 non-local and 4 local symbols. 


4 source Lines were read in Pass 


° produc ing 14 object records in Pass 2. 
2 pages of virtual memory were used to defin 


e 11 macros. 
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! Macro Library statistics ! 


poe woew omnes ean ue er maame cee $ 


Macro Library name Macros defined 
Stitt? $ pav3- -OBJJLIB.MLB;1 ; 
SSSDUA SYSLIBJSTARLET.MLB;2 
Tovace (all Libraries) 8 


510 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:FORKCNTRL/OBJ=OBJ$:FORKCNTRL MSRC$:FORKCNTRL/UPDATE=(ENH$:FORKCNTRL) +EXECML$/LIB 
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